BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Tele/M/Message Minder 0.1a .cpt/Message minder/background_2760.txt

Text File | 1990-08-21 | 14KB | 586 lines

-- background: 2760 from stack: in
-- bmap block id: 3326
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground
on newCard
  tabKey
end newCard



-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=83 top=39 right=57 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Topic


-- part 3 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=11 top=60 right=196 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Text


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=423 top=197 right=222 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=453 top=197 right=222 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=195 right=224 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=389 top=197 right=222 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=72 top=197 right=224 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=111 top=197 right=221 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 3430 / 3430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rolo
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "Address"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=144 top=197 right=223 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 20965 / 20965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Do
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go first card of background "To Do" of "Datebook"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=175 top=197 right=223 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
--with option key down, goes to the six-month calendar

on mouseUp
  get the optionKey
  set lockScreen to true
  go stack "DateBook"
  if it is down then
    goSixMonthly the seconds
    exit mouseUp
  end if
  goWeekly the seconds
  set lockScreen to false
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=197 right=222 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=249 top=198 right=221 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print selection
----- HyperTalk script -----
--To use this button: select the text you want to print, then click me!
--(requires TeachText, available on almost any application disk)

--option only: start fresh or append an item but dont print
--command: print current file (after you've used option)
--(Note: To be safe, put a on ShutDownscript in your home stack to print
--any unprinted text)
on mouseUp
  global hyperTempStatus
  put the optionKey into option
  get the commandKey
  put ":HyperCard:HyperTemp" into myFile
  if it = "down" then
    print myFile with "TeachText"
    put empty into hyperTempStatus
    exit mouseUp
  end if
  if option = "down" then
    open file myFile
    if hyperTempStatus is "open" then
      read from file myFile for 10000
      --write it to file myFile
      write return & return to file myFile
    end if
    write the selection to file myFile
    close file myFile
    put "open" into hyperTempStatus
    exit mouseUp
  end if
  open file myFile
  write the selection to file myFile
  close file myFile
  print myFile with "TeachText"
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=271 top=24 right=45 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Export
----- HyperTalk script -----
on mouseUp
  --ask "Text file name, please." with field "heading"
  go to first card
  repeat for the number of cards
    if field "Flag" is not "R" then
      go next card
      next repeat
    end if
    if field "Cat" is empty then
      answer "Category is blank, skip this card?" with "Cancel" or "Skip" or "Include"
      if it is "Cancel" then exit mouseUp
      if it is "Skip" then
        go next card
        next repeat
      end if
    end if
    wrapit
    --To select a folder to keep replies in, replace "GEnie" on the next
    --line with the folder name or pathname you want (pathname =
    --folders within folders, separated by colons)
    put ":GEnie:Reply Cat " & field "Cat" & " Topic " & field "Topic" into theFile
    if theFile is not empty then open file theFile else exit mouseUp
    write field "Reply" & return to file theFile
    close file theFile
    put empty into field "Flag"
    go next card
  end repeat
  beep
end mouseUp
on wrapit
  put 250 into lineLength
  put fld "Reply" into Text
  put empty into newText
  repeat with x = one to the number of lines in Text
    set the cursor to busy
    put line x of Text into thisLine
    if the length of thisLIne <= lineLength
    then put line x of Text & return after newText
  else
    repeat until the length of thisLine <= lineLength
      get the number of words in char 1 to lineLength of thisLine
      if char linelength to linelength + one of thisLIne contains " " then add one to it
      subtract one from it
      put word one to it of thisLine & return after newText
      delete word one to it of thisLine
    end repeat
    put thisLine & return after newText
  end if
end repeat
put newText into fld "Reply"
end wrapit



-- part 22 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=399 top=24 right=37 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: delete cards
----- HyperTalk script -----
on mouseUp
  beep
  answer "Delete ALL cards in stack (except this)?" with "OK" or "Cancel"
  if it is "Cancel" then exit mouseUp
  go next card
  repeat for the number of cards - 1
    doMenu "delete Card"
  end repeat
  doMenu "Compact Stack"
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=400 top=39 right=52 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: clear fields
----- HyperTalk script -----
on mouseUp
  beep
  if the optionKey is up then
    answer "Clear all fields on this card?" with "OK" or "Cancel"
    if it is "Cancel" then exit mouseUp
  end if
  repeat with x = 1 to 7
    put empty into field x
  end repeat
end mouseUp



-- part 25 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=11 top=222 right=341 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Reply
----- HyperTalk script -----
on closeField
  put "R" into field "Flag"
  if me is empty then put empty into field "Flag"
end closeField



-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=84 top=22 right=40 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cat


-- part 27 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=13 top=40 right=59 bottom=36
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Page


-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=117 top=39 right=57 bottom=149
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Flag


-- part 29 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=151 top=43 right=59 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Heading


-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=43 top=198 right=223 bottom=71
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell Me About...
----- HyperTalk script -----
on mouseUp
  push card
  visual effect iris open
  go stack "About Message Minder"
end mouseUp


-- part 33 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=212 top=23 right=45 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import
----- HyperTalk script -----
on mouseUp
  put FileName("TEXT") into theFile
  if theFile is not empty then
    repeat with x = 1 to 7
      put empty into field x
    end repeat
    push card
    put one into counter
    put "*" into aStar
    put "***********" & return into theStars
    put "-" into aDash
    put "-----------" & return into theDashes
    put empty into thatsAll
    put theFile into field "heading"
    open file theFile
    repeat
      put empty into myText
      repeat
        read from file theFile until aDash
        if it is empty then exit repeat
        put it after myText
        read from file theFile for 12
        if it is theDashes then exit repeat
        put it after myText
        set cursor to busy
      end repeat
      put it after myText
      repeat
        read from file theFile until return
        if it is empty then exit repeat
        if word one of it is "Category" then
          put word 2 of it into theCat
          if word three of it is "Topic" then
            put word four of it into theTopic
            exit repeat
          end if
        end if
        put it after myText
      end repeat
      put it after myText
      put theCat into field "Cat"
      put theTopic into field "Topic"
      put myText into field "Text"
      repeat
        read from file theFile until aStar
        if it is empty then
          put "true" into thatsAll
          exit repeat
        end if
        put it after myText
        read from file theFile for 12
        if it is theStars then exit repeat
        put it after myText
        set cursor to busy
      end repeat
      put it after myText
      put myText into field "text"
      if thatsAll is "true" then exit repeat
      doMenu "New Card"
      add 1 to counter
      put counter into field "Page"
    end repeat
    pop card
    close file theFile
    beep
  end if
end mouseUp